home *** CD-ROM | disk | FTP | other *** search
/ PC Action 1999 September / PC Action Issue 81 (September 1999).ISO / vft / _setup.1 / BasicVR.cst / 00006_close.ls < prev    next >
Encoding:
Text File  |  1997-03-03  |  363 b   |  17 lines
  1. on mouseUp
  2.   -- close QTVR Movie: use for a button which closes a movie
  3.   global gQTVRObj
  4.   
  5.   QTVRClose(gQTVRObj)
  6.   
  7.   -- the VR movie is direct-to-stage, 
  8.   -- so you have to wipe it somehow
  9.   set the ink of sprite 10 = 1
  10.   updatestage
  11.   set the ink of sprite 10 = 0
  12.   
  13.   -- This is tutorial code. Delete it if you copy
  14.   -- this script.
  15.   clearMovieInfo
  16.   
  17. end